home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Graphic / iView Multimedia 3.8.6 / AppleScript Support / folder watch script next >
Encoding:
Text File  |  2000-01-31  |  847 b   |  37 lines  |  [TEXT/ToyS]
  1. on adding folder items to theFolder after receiving addedItems
  2.     
  3.     -- name of catalog file
  4.     set myCatalog to (theFolder as text) & ".catalog"
  5.     
  6.     -- check if we already have a catalog    
  7.     tell application "Finder"
  8.         set fileExists to exists alias (myCatalog)
  9.     end tell
  10.     
  11.     -- confirm
  12.     display dialog "Insert items in '.catalog'" -- & (myCatalog as text) & "'"
  13.     
  14.     tell application "iView Multimedia"
  15.         activate
  16.         
  17.         -- if catalog exists we insert new items, otherwise we insert entire folder
  18.         if fileExists = true then
  19.             open file myCatalog
  20.             open addedItems
  21.         else
  22.             open theFolder
  23.         end if
  24.         
  25.         -- wait until importing is done
  26.         repeat while the «class pImp» of window 1 is true
  27.         end repeat
  28.         
  29.         -- save catalog
  30.         if fileExists = true then
  31.             save window 1
  32.         else
  33.             save window 1 in file myCatalog
  34.         end if
  35.     end tell
  36.     
  37. end adding folder items to